home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / show / VideoMPEGA.lha / VideoMPEGA / VideoMPEGA_AGA < prev    next >
Text File  |  2000-09-27  |  628b  |  29 lines
  1. echo "*N"
  2. Requestfile >env:MPname PATTERN #?.(mpeg|mpg|mpe) TITLE="Choose MPEG video"
  3. if warn
  4.    skip end
  5. endif
  6. if not exists $MPname
  7.    skip end
  8. endif
  9. Requestchoice >env:mode "" "Choose output mode" 18BitsColors 8BitsGray Abort
  10. if val $mode eq 1
  11. c:splitter $mpname audio t:a.mp2 video t:v.mpg
  12. wait 1
  13. run >nil: c:amipeg dither hiresham modeid 0x29820 t:v.mpg
  14. wait 1
  15. c:mpega -q 0 -d 4 -m  t:a.mp2
  16. wait 2
  17. c:delete t:a.mp2 t:v.mpg
  18. endif
  19. if val $mode eq 2
  20. c:splitter $mpname audio t:a.mp2 video t:v.mpg
  21. run >nil: c:amipeg dither gray modeid 21000 t:v.mpg
  22. wait 1
  23. c:mpega -q 0 -d 4 -m  t:a.mp2
  24. wait 2
  25. c:delete t:a.mp2 t:v.mpg
  26. endif
  27.  
  28.  
  29.